Developer CD Series 1996 June: Reference Library

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 5 / develop Issue 5 code / Lisp Mini-App.sea / Lisp Mini-App / Program / open-all-text-files.lisp < prev next >

MacBinary | 1992-04-08 | 2.0 KB | [TEXT/CCL2]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Apr 8 18:02:59 1992, modified Wed Apr 8 18:02:59 1992, creator Common Lisp 2, type ASCII, 1388 bytes "open-all-text-files.lisp" , at 0x5ec 441 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	dexmagic	Picasso 64 Image	default (weak)
`100%`	dearkID	deark: macbinary	default
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 18 6f 70 65 6e 2d 61 | 6c 6c 2d 74 65 78 74 2d |..open-a|ll-text-|
|00000010| 66 69 6c 65 73 2e 6c 69 | 73 70 00 00 00 00 00 00 |files.li|sp......|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 05 6c 00 | 00 01 b9 a6 09 1e 13 a6 |......l.|........|
|00000060| 09 1e 13 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8f 18 00 00 |........|........|
|00000080| 23 7c 0d 66 69 6c 65 3a | 20 20 20 20 20 20 20 20 |#|.file:|        |
|00000090| 6f 70 65 6e 2d 61 6c 6c | 2d 74 65 78 74 2d 66 69 |open-all|-text-fi|
|000000a0| 6c 65 73 2e 6c 69 73 70 | 0d 76 65 72 73 69 6f 6e |les.lisp|.version|
|000000b0| 3a 20 20 20 20 20 31 2e | 30 0d 6c 61 73 74 20 65 |:     1.|0.last e|
|000000c0| 64 69 74 65 64 3a 20 30 | 33 2d 31 32 2d 39 32 0d |dited: 0|3-12-92.|
|000000d0| 63 6f 70 79 72 69 67 68 | 74 20 a9 20 31 39 38 39 |copyrigh|t . 1989|
|000000e0| 2c 20 31 39 39 32 20 53 | 74 65 76 65 6e 20 4c 20 |, 1992 S|teven L |
|000000f0| 4d 69 74 63 68 65 6c 6c | 2f 43 61 72 62 6f 6e 2d |Mitchell|/Carbon-|
|00000100| 62 61 73 65 64 20 4d 65 | 74 61 70 68 6f 72 73 2e |based Me|taphors.|
|00000110| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4c 69 |.       |      Li|
|00000120| 63 65 6e 73 65 64 20 75 | 73 65 72 73 20 6f 66 20 |censed u|sers of |
|00000130| 4d 43 4c 32 20 6d 61 79 | 20 75 73 65 20 74 68 69 |MCL2 may| use thi|
|00000140| 73 20 63 6f 64 65 20 66 | 72 65 65 6c 79 2e 0d 0d |s code f|reely...|
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 55 73 65 |        |     Use|
|00000160| 73 20 74 68 65 20 6e 65 | 77 20 66 75 6e 63 74 69 |s the ne|w functi|
|00000170| 6f 6e 20 63 68 6f 6f 73 | 65 2d 64 69 72 65 63 74 |on choos|e-direct|
|00000180| 6f 72 79 2d 64 69 61 6c | 6f 67 2e 0d 0d 20 20 20 |ory-dial|og...   |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 54 68 65 20 75 73 |        |  The us|
|000001a0| 65 72 20 74 79 70 65 73 | 20 6d 65 74 61 2d 61 2c |er types| meta-a,|
|000001b0| 20 61 6e 64 20 63 68 6f | 6f 73 65 73 20 61 20 64 | and cho|oses a d|
|000001c0| 69 72 65 63 74 6f 72 79 | 2e 0d 20 20 20 20 20 20 |irectory|..      |
|000001d0| 20 20 20 20 20 20 20 41 | 6c 6c 20 74 65 78 74 20 |       A|ll text |
|000001e0| 66 69 6c 65 73 20 69 6e | 20 74 68 65 20 64 69 72 |files in| the dir|
|000001f0| 65 63 74 6f 72 79 20 61 | 72 65 20 6f 70 65 6e 65 |ectory a|re opene|
|00000200| 64 20 69 6e 74 6f 20 46 | 72 65 64 20 77 69 6e 64 |d into F|red wind|
|00000210| 6f 77 73 2e 0d 7c 23 0d | 0d 3b 3b 3b 3b 3b 3b 3b |ows..|#.|.;;;;;;;|
|00000220| 3b 3b 3b 3b 3b 3b 3b 3b | 3b 3b 3b 3b 3b 3b 3b 3b |;;;;;;;;|;;;;;;;;|
|00000230| 3b 3b 3b 3b 0d 3b 3b 3b | 0d 3b 3b 3b 20 6f 70 65 |;;;;.;;;|.;;; ope|
|00000240| 6e 2d 61 6c 6c 2d 74 65 | 78 74 2d 66 69 6c 65 73 |n-all-te|xt-files|
|00000250| 0d 3b 3b 3b 0d 3b 3b 3b | 20 20 20 20 20 46 72 65 |.;;;.;;;|     Fre|
|00000260| 64 20 63 6f 6d 6d 61 6e | 64 3a 20 6d 65 74 61 2d |d comman|d: meta-|
|00000270| 61 2e 0d 3b 3b 3b 0d 3b | 3b 3b 20 20 20 20 20 4f |a..;;;.;|;;     O|
|00000280| 70 65 6e 20 61 6c 6c 20 | 74 68 65 20 74 65 78 74 |pen all |the text|
|00000290| 20 66 69 6c 65 73 20 69 | 6e 20 61 20 64 69 72 65 | files i|n a dire|
|000002a0| 63 74 6f 72 79 2e 0d 3b | 3b 3b 0d 0d 28 64 65 66 |ctory..;|;;..(def|
|000002b0| 2d 66 72 65 64 2d 63 6f | 6d 6d 61 6e 64 20 28 3a |-fred-co|mmand (:|
|000002c0| 6d 65 74 61 20 23 5c 61 | 29 20 6f 70 65 6e 2d 61 |meta #\a|) open-a|
|000002d0| 6c 6c 2d 74 65 78 74 2d | 66 69 6c 65 73 29 0d 0d |ll-text-|files)..|
|000002e0| 28 64 65 66 6d 65 74 68 | 6f 64 20 6f 70 65 6e 2d |(defmeth|od open-|
|000002f0| 61 6c 6c 2d 74 65 78 74 | 2d 66 69 6c 65 73 20 28 |all-text|-files (|
|00000300| 28 77 20 66 72 65 64 2d | 6d 69 78 69 6e 29 29 0d |(w fred-|mixin)).|
|00000310| 20 20 22 4f 70 65 6e 20 | 61 6c 6c 20 54 45 58 54 |  "Open |all TEXT|
|00000320| 20 66 69 6c 65 73 20 69 | 6e 20 61 20 64 69 72 65 | files i|n a dire|
|00000330| 63 74 6f 72 79 2e 22 0d | 20 20 28 6c 65 74 20 28 |ctory.".|  (let (|
|00000340| 64 69 72 2d 70 61 74 68 | 6e 61 6d 65 73 74 72 69 |dir-path|namestri|
|00000350| 6e 67 0d 20 20 20 20 20 | 20 20 20 66 69 6c 65 2d |ng.     |   file-|
|00000360| 70 61 74 68 6e 61 6d 65 | 73 29 0d 20 20 20 20 28 |pathname|s).    (|
|00000370| 73 65 74 66 20 64 69 72 | 2d 70 61 74 68 6e 61 6d |setf dir|-pathnam|
|00000380| 65 73 74 72 69 6e 67 20 | 28 63 68 6f 6f 73 65 2d |estring |(choose-|
|00000390| 64 69 72 65 63 74 6f 72 | 79 2d 64 69 61 6c 6f 67 |director|y-dialog|
|000003a0| 29 29 0d 20 20 20 20 28 | 73 65 74 66 20 66 69 6c |)).    (|setf fil|
|000003b0| 65 2d 70 61 74 68 6e 61 | 6d 65 73 0d 20 20 20 20 |e-pathna|mes.    |
|000003c0| 20 20 20 20 20 20 28 6e | 72 65 76 65 72 73 65 0d |      (n|reverse.|
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 28 64 69 72 65 |        |   (dire|
|000003e0| 63 74 6f 72 79 20 28 63 | 6f 6e 63 61 74 65 6e 61 |ctory (c|oncatena|
|000003f0| 74 65 20 27 73 74 72 69 | 6e 67 20 64 69 72 2d 70 |te 'stri|ng dir-p|
|00000400| 61 74 68 6e 61 6d 65 73 | 74 72 69 6e 67 20 22 2a |athnames|tring "*|
|00000410| 22 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |").     |        |
|00000420| 20 20 20 20 20 20 20 20 | 20 3a 74 65 73 74 20 23 |        | :test #|
|00000430| 27 28 6c 61 6d 62 64 61 | 20 28 70 61 74 68 2d 6e |'(lambda| (path-n|
|00000440| 61 6d 65 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ame).   |        |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000460| 20 20 20 20 20 28 65 71 | 75 61 6c 20 28 6d 61 63 |     (eq|ual (mac|
|00000470| 2d 66 69 6c 65 2d 74 79 | 70 65 20 70 61 74 68 2d |-file-ty|pe path-|
|00000480| 6e 61 6d 65 29 20 3a 54 | 45 58 54 29 29 0d 20 20 |name) :T|EXT)).  |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 20 20 20 3a 72 65 73 | 6f 6c 76 65 2d 61 6c 69 |    :res|olve-ali|
|000004b0| 61 73 65 73 20 74 29 29 | 29 0d 20 20 20 20 28 66 |ases t))|).    (f|
|000004c0| 6f 72 6d 61 74 20 74 20 | 22 4f 70 65 6e 69 6e 67 |ormat t |"Opening|
|000004d0| 20 7e 44 20 66 69 6c 65 | 73 2e 2e 2e 22 20 28 6c | ~D file|s..." (l|
|000004e0| 65 6e 67 74 68 20 66 69 | 6c 65 2d 70 61 74 68 6e |ength fi|le-pathn|
|000004f0| 61 6d 65 73 29 29 0d 20 | 20 20 20 28 73 74 72 65 |ames)). |   (stre|
|00000500| 61 6d 2d 66 6f 72 63 65 | 2d 6f 75 74 70 75 74 20 |am-force|-output |
|00000510| 2a 73 74 61 6e 64 61 72 | 64 2d 6f 75 74 70 75 74 |*standar|d-output|
|00000520| 2a 29 0d 20 20 20 20 28 | 6d 61 70 63 61 72 20 23 |*).    (|mapcar #|
|00000530| 27 28 6c 61 6d 62 64 61 | 20 28 70 61 74 68 2d 6e |'(lambda| (path-n|
|00000540| 61 6d 65 29 20 28 65 64 | 20 70 61 74 68 2d 6e 61 |ame) (ed| path-na|
|00000550| 6d 65 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |me)).   |        |
|00000560| 20 66 69 6c 65 2d 70 61 | 74 68 6e 61 6d 65 73 29 | file-pa|thnames)|
|00000570| 0d 20 20 20 20 28 66 6f | 72 6d 61 74 20 74 20 22 |.    (fo|rmat t "|
|00000580| 64 6f 6e 65 2e 7e 25 22 | 29 29 0d 20 20 28 76 61 |done.~%"|)).  (va|
|00000590| 6c 75 65 73 29 29 0d 0d | 0d 3b 20 65 6e 64 20 6f |lues))..|.; end o|
|000005a0| 66 20 66 69 6c 65 20 6f | 70 65 6e 2d 61 6c 6c 2d |f file o|pen-all-|
|000005b0| 74 65 78 74 2d 66 69 6c | 65 73 2e 6c 69 73 70 0d |text-fil|es.lisp.|
|000005c0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|000005d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000005e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 00 00 |--------|----....|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 67 | 00 00 00 67 00 00 00 52 |.......g|...g...R|
|00000610| b9 01 ee 85 bf f5 e2 b5 | 02 af 85 8d 0e 0c ae 8c |........|........|
|00000620| 15 ca e9 37 02 be 00 09 | 06 04 05 6f 59 c3 01 00 |...7....|...oY...|
|00000630| 18 6f 70 65 6e 2d 61 6c | 6c 2d 74 65 78 74 2d 66 |.open-al|l-text-f|
|00000640| 69 6c 65 73 2e 6c 69 73 | 70 65 02 00 00 00 54 45 |iles.lis|pe....TE|
|00000650| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 d0 00 00 |..TEXTCC|L2......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a5 e5 e9 da 00 00 | 05 6c 00 00 01 b9 01 af |........|.l......|
|00000680| a3 bb 00 41 95 bf f5 d2 | c9 01 f3 f5 32 2e 03 af |...A....|....2...|
|00000690| 89 cd 85 8d 0e 34 4a 80 | 66 0e cc cd e9 8b f4 8d |.....4J.|f.......|
|000006a0| 0e 58 50 4e f6 f3 f5 da | c8 01 f6 f3 f5 f2 43 00 |.XPN....|......C.|
|000006b0| f6 f3 f5 7a cd 01 bd 67 | 9a a3 85 bf f5 fa 91 02 |...z...g|........|
|000006c0| 97 d8 67 1a 22 39 72 9b | 00 bb 91 05 08 d4 f4 bf |..g."9r.|........|
|000006d0| ae d9 32 f6 02 eb ae d4 | ff fc cf 8a 33 00 84 40 |..2.....|....3..@|
|000006e0| 00 07 07 03 06 08 05 05 | 15 04 09 07 13 05 05 03 |........|........|
|000006f0| 05 08 6f 6b e5 01 f0 00 | 01 00 27 11 8d 10 14 b7 |..ok....|..'.....|
|00000700| 00 00 00 0a 00 01 00 04 | 09 00 01 00 00 00 00 00 |........|........|
|00000710| 00 09 00 2b 06 4d 6f 6e | 61 63 6f 00 00 00 48 00 |...+.Mon|aco...H.|
|00000720| 09 4d 6f 6e 61 63 6f 00 | 00 00 00 00 00 00 00 00 |.Monaco.|........|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 06 00 08 00 2b 00 | 08 01 44 02 3e 00 2b 00 |......+.|..D.>.+.|
|00000750| 08 01 44 02 3e 00 00 00 | 00 00 00 00 00 00 00 00 |..D.>...|........|
|00000760| 00 00 00 00 00 01 00 00 | 00 01 00 00 00 01 67 00 |........|......g.|
|00000770| 00 00 67 00 00 00 52 00 | 1c 04 9c 08 74 00 00 00 |..g...R.|....t...|
|00000780| 1c 00 52 00 01 46 52 45 | 44 00 01 00 12 4d 50 53 |..R..FRE|D....MPS|
|00000790| 52 00 00 00 2a 00 02 ff | ff 00 00 00 00 00 00 00 |R...*...|........|
|000007a0| 00 00 03 ff ff 00 00 00 | 0e 00 00 00 00 03 ed ff |........|........|
|000007b0| ff 00 00 00 1b 00 1c 13 | 64 00 00 00 00 00 00 00 |........|d.......|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+